5 GOSUB60000
10 C=53280:S=53265:D=59516:E=65126:POKEC,34:POKEC+1,2:POKE808,234
20 PRINT"[147]"TAB(44)"PUT THE DISK TO GUARD OR UN-GUARD"
30 PRINTTAB(12)"IN THE DISK DRIVE."
40 PRINTTAB(47)" PRESS ANY KEY WHEN READY ":GOSUB240:POKE198,0:WAIT198,1
50 PRINTTAB(13)"[145][158] WARNING!! ":PRINT"  ONCE GUARDED, ONLY RE-FORMATTING OR"
60 PRINTTAB(2)"USING THIS PROGRAM WILL AGAIN ALLOW"
70 PRINT"  WRITING TO THIS DISK.":PRINTTAB(11)" CONTINUE? (Y/N)":GOSUB240
80 GETK$:IFK$="N"THEN250
90 IFK$<>"Y"THEN80
100 PRINTTAB(16)"[145][153] OKAY "
110 OPEN15,8,15,"I":OPEN8,8,8,"#":PRINT#15,"UA:"8;0;18;0:PRINT#15,"B-P:"8;2
120 PRINTTAB(43)"ENTER 'G'[146] TO GUARD THE DISK, OR..."
130 PRINTTAB(9)"'U'[146] TO UN-GUARD THE DISK...":GOSUB240
140 GETK$:IFK$<>"G"ANDK$<>"U"THEN140
150 P$="UN-GUARDED.":IFK$="G"THENP$="GUARDED..."
160 PRINTTAB(16)"[145][159] OKAY ":PRINTTAB(43)" THE DISK IS NOW BEING "P$"[158]":GOSUB240
170 IFK$="G"THEN210
180 PRINT#8,"A";:PRINT#15,"M-W";CHR$(1);CHR$(1);CHR$(1);CHR$(65)
190 PRINT#15,"M-W";CHR$(2);CHR$(7);CHR$(1);CHR$(65)
200 PRINT#15,"B-P:"8,165:PRINT#8,"2A";:GOTO220
210 PRINT#8,"4";:PRINT#15,"B-P:"8,165:PRINT#8,"WG";:
220 PRINT#15,"UB:"8;0;18;0:CLOSE8:PRINT#15,"I":CLOSE15:FORI=1TO2000:NEXT
230 POKES,11:PRINTTAB(240)TAB(255)"[155] ALL DONE [154]":GOTO260
240 FORI=1TO20:PRINT"* [158]";:NEXT:PRINT:POKEC,(PEEK(C)AND15)+1:RETURN
250 PRINTTAB(50)" PROGRAM ABORTED "
260 POKES,27:FORI=1TO1500:NEXT:POKE808,237:GOTO63000
60000 T$="                         ":C=0:C$="":PRINT"[147]":POKE53281,0
60030 PRINTSPC(7)""T$:PRINTSPC(7)"      [215]RITE [199]UARD        [146]"
60051 PRINTSPC(7)""T$:PRINT:PRINTTAB(18)"BY"
60060 PRINT:PRINTSPC(14)"[210].[215]. [203]OBER"
60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985"
60080 PRINT:PRINT:PRINT:PRINT"     [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
60090 PRINT:PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 PRINT:PRINT"      [208]RESS SPACE BAR TO CONTINUE."
60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130
60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C)
60125 NEXT:GOTO60100
60130 PRINTC$:RETURN
63000 REM  CONNECT TO L.S.
63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:        END